<script>on mouseUpvisual effect stretch from centergo to card id 2268end mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>1</id>
<text>• 2 machines running system 7 & HyperCard.• Program Linking must be on (see Sharing Setup control panel).• Both machines must allow user or guest access (see Users & Groups control panel).• User names come from the Home stack.* See your System 7 documentation for use of the control panels.</text>
</content>
<name>help</name>
<script></script>
</card>
card_2861.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput word 2 of the clickLine into theLineend mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>18</left>
<top>109</top>
<right>255</right>
<bottom>222</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>entry</name>
<script>-- on KeyDown theKey-- get me-- if theKey ≠ deleteKey then-- enableButtons-- else-- if it is empty then-- disableButtons-- end if-- end if-- pass keyDown-- end keyDownon enterInFieldenterKeyend enterInField</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>258</left>
<top>54</top>
<right>471</right>
<bottom>262</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>transcript</name>
<script></script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>17</left>
<top>11</top>
<right>42</right>
<bottom>36</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpanswer program "Link to who's HyperCard:"if it is empty then exit mouseUpput it into cd fld "onlineUsers"select text of cd fld "entry"end mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>52</left>
<top>9</top>
<right>88</right>
<bottom>42</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>19093</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Send</name>
<script>on mouseUpglobal userName,gTimeoutset the cursor to watchput cd fld "entry" into theEntry -- store the fields in variablesput cd fld "onlineUsers" into theProgram -- for speedif theEntry is empty then exit mouseUp -- there is no message to sendput empty into card field "showResult" -- clear error field--------------------------------------------------------------- Bring HyperConference to the front ---------------------------------------------------------------request "the short name of this stack" from program theProgramif the result is not empty thenbeepanswer "HyperCard is not running on the requested machine. Click on Zone."exit mouseUpend ifif it is not "hyperConference" thensendappleevent "misc","dosc", theProgram, "noReply",¬"neverInteract",gTimeout,"go stack hyperConference" -- open the stackend if--------------------------------------------------------------- Send message ---------------------------------------------------------------put userName & "∆" & theEntry & "∆" & ¬ -- store data to sendthe hilite of cd btn "Send with sound" & "∆" &¬the hilite of cd btn "Notify with dialog"¬into theParamsget emptyput the ticks into startTickssendappleevent "hCnf","getM", theProgram, waitReply,,gTimeout,theParamsput the ticks into endTicksget endTicks-startTicks--------------------------------------------------------------- Check for errors ---------------------------------------------------------------if it > gTimeout then-- put it into card field "showResult" -- display errorbeepanswer "Timeout!" & return & return & "Either the Mac is too busy or the " &¬"user is not at the Mac. Try later." & return & return &¬"(The timeout time can be changed via the Conference menu.)"exit mouseUpend if--------------------------------------------------------------- Update transcript ---------------------------------------------------------------put username && the date && the time & return after theTranscriptput theEntry & return after theTranscript -- enter message in logput the number of lines of theEntry into entryLinesput thetranscript after cd fld "transcript"get the number of lines of cd fld "transcript"repeat with L=(it-entryLines) to itset the textStyle of line L of cd fld "transcript" to italicend repeat--------------------------------------------------------------- Get ready for next message ---------------------------------------------------------------set the hilite of cd btn "Notify with dialog" to falsesetTranscriptScrollselect text of cd fld "entry" -- prepare for next messageend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>91</left>
<top>9</top>
<right>127</right>
<bottom>42</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>17370</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>save</name>
<script>on mouseUpif cd fld "transcript" is empty thenbeepanswer "There is nothing to save!" & return &¬"(The transcript is empty)"exit mouseUpend ifask file "Save transcript to what file name?"if it is empty then exit mouseUpopen file itwrite cd fld "transcript" to file itclose file itend mouseUp</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>19</left>
<top>83</top>
<right>265</right>
<bottom>101</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>showResult</name>
<script></script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>288</left>
<top>21</top>
<right>385</right>
<bottom>40</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>userName</name>
<script></script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>302</left>
<top>8</top>
<right>357</right>
<bottom>22</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>version</name>
<script></script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>18</left>
<top>226</top>
<right>152</right>
<bottom>247</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Send with sound</name>
<script>on mouseUpselect after text of cd fld "entry"pass mouseUpend mouseUp</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>18</left>
<top>246</top>
<right>163</right>
<bottom>267</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Notify with dialog</name>
<script>on mouseUpselect after text of cd fld "entry"pass mouseUpend mouseUp</script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>454</left>
<top>0</top>
<right>480</right>
<bottom>24</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>19678</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>about</name>
<script>on mouseUpvisual effect barn door opengo to card id 2861end mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>424</left>
<top>0</top>
<right>453</right>
<bottom>23</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26635</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>help</name>
<script>on mouseUpvisual effect shrink to centergo to card id 4604end mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>10</id>
<text>1.0b1</text>
</content>
<name></name>
<script>on enterKeysend mouseUp to cd btn "send"end enterKeyon openCardglobal userNameput userName into cd fld "userName"select text of cd fld "entry"end openCard</script>
(CDRM1080320)(1993).iso/FILES/HYP/C-D/CoolMacStacks.sea/Cool Mac Stacks/Utilities/HyperConference/BMAP_5130.png){kind=link}
(CDRM1080320)(1993).iso/FILES/HYP/C-D/CoolMacStacks.sea/Cool Mac Stacks/Utilities/HyperConference/PATs.png){kind=link}